home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / tpbsave.arc / BLDEMO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1988-08-11  |  413 b   |  27 lines
  1. program display;
  2. {program to show how to use BLOAD procedure}
  3. uses crt,graph;
  4.  
  5. var
  6.    iname:string[20];
  7.    grdriver,
  8.    grmode:integer;
  9.  
  10. {$i b:bload.inc}  {you might need to change the drive}
  11.  
  12. begin
  13.      write('Picture file-');
  14.      readln(iname);
  15.  
  16.      grdriver:=cga;
  17.      grmode:=cgahi;
  18.      initgraph(grdriver,grmode,'');
  19.  
  20.      bload(iname);
  21.  
  22.      readln;
  23.  
  24.      textmode(c80);
  25.  
  26. end.
  27.